FORTRAN-IV 
for AL/COM®& 


JANUARY, 1969 


AL/COM Fortran IV is a SUPERIOR programming language which encompasses USASI Full 
Fortran and a variety of Advanced AL/COM Features. Any program congruous with the USA 
Standards is compatible with the AL/COM Fortran System. The additional facilities are described 
in the following summary: 


Specification Statements 
A. Storage Statements—The AL/COM Fortran System offers great flexibility in the process of 
allocating storage to arrays. The programmer is able to: 
(1) use an infinite number of array dimensions, 
(2) allocate the range of array dimensions at execution time, 
(3) assign to the minimum subscript values of an array quantities which may be less than or 
equal to zero. 


. Type Specifications—The user is presented with a convenient method of assigning variables 
to a type (integer, real, etc.) through use of the IMPLICIT statement, which causes any 
variable not referred to in another type statement, and which has as its first character a 
symbol corresponding to one of those listed in the IMPLICIT statement, to be classified 
according to the type specified in that statement. 


Input-Output Statements 


. Random Access Files—Random Access files may be read and written through use of the 
random read routine, RREAD, and the random write routine, RWRI. 


. Free Format—tThe field width portion of the numeric field codes may be omitted in |/O 
Formats. 


. Input/Output—Input/Output is device independent. I/O devices may be determined at run 
time. 


. Additional |/O Statements—The TYPE and ACCEPT commands are available for transmission 
of data through the TTY. 


. Octal Field Specifications—Octal fields may be defined through use of the ‘O’ conversion 
code. 


Mixed Mode Arithmetic 


Any type of quantity may be combined with any other type with one restriction: a complex 
quantity may not be combined with a double precision quantity. 


Do Loop Indices 


The initial, terminal, and incremental indices of a DO statement may assume negative or 
positive values, and the initial or terminal index may be assigned a zero value. 


Additional Logical Operands 


Two more logical operands are offered: 
A.—Exclusive OR— .XOR. 
B.—Equivalence— .EQV. 


More on other side 
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TYPE SELLM.FOR SELL.FOR 
SELLM.FOR 12/20/68 161! 1t-38-127 


@001@ EXTERNAL CHANGM 

963038 TYPE 50 

08956 ACCEPT 108, K1,K2,K3,K4,K5,N1,N2,N5,N4 

3097¢ I! KI*K2*K3*K4*K5S 

883993 12 CN2 - NI + 1) * CNA = WS + 1) 

@9118 I3 K} 

00133 14 "2 - SI + 1 

89153 ALLOTCCHANGM,11,12,13,14,-18,K1,K2,K3,K4,K5, 
O16 N1,N2,N3S,N4) 

831993 FORMATCIX, INSERT DIMENSION VALUES FOR ARRAYL AND 
09208 ARRAY2°) 

992793 FORMAT(S1) 

08293 STOP 

G9319 END 
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SELL.FOR 12/20/68 1611 1-36-127 


aoaie SUBROUTINE CHANGMCARRAY1, ARRAY2, ARRAYS, ARRAYA, 
gaa3a 1 K1,K2,K3,K4,K5,N1,N2,N3,N4) 

a9050 DIMENSION ARRAYI(K1,K2,K3,K4,K5),ARRAY2(MI/N2, 
99969 N3/N4), ARRAY3CNI/N2), ARRAYACKI) 

90079 IMPLICIT DOUBLE PRECISION(C-D) 

ga990 

aoii@ ACCEPT DATA FOR ARRAY! 

go15@ TYPE 999 

ao179 pO15@@ M = 1,K5 

ao190 DOL5@3 L = 1,K4 

ao2ia DO15S3 K = 1,K3 

ga23a DO15@9 J = 1,K2 

99259 ACCEPT 100, CARRAYICI,J,K,L,M),I=1,K1) 

90279 CONTINUE 

eo28a CARD = 3.678942399 

ga290 CARD = CARD + ARRAYI(1,1,1,1,1) 

ga3ia@ ACCEPT BATA FOR ARRAY2 

90339 TYPE 910 

9350 DO 1699 J = N3,NA 

99373 ACCEPT 100, (ARRAY2(1,J),1 = N1,N2) 

a9399 CONTINUE 

goalie 

90430 TOTAL ARRAY] & PRODUCE ARRAY4 & PRINT ARRAYI 
ao4 

ao473 BO 1790 
ga4og DO 1790 
ao5i@ DO 1793 
90530 dO 1709 
ga55@ DO 170 1,K5 

90579 ARRAYAC1) = ARRAYA(I) + ARRAYICI,J,K,L,™) 

go58a DARE = 4.896742899 

92593 DARE = ARRAY4(1) + BARE 

90870 

@a89a PRODUCE ARRAY3 THROUGH ARRAY2 

ga91d 

90932 BO 2900 I = NI,N2 

gas5a BO 2000 J = N3,N4,-N3 

ag97a ARRAY3(1) = ARRAY2(I,J) * J + ARRAY3C1) 

93990 

gaia TEST VALUES OF ARRAY3 & ARRAY 4 

91030 

a1050 pO 2160 I = 1,XK1 

a1a79 IFCARRAY3S(1) «EQ. ARRAY4(I) .XOR. ARRAY3(1I) EQ. 
g19sa @.) 

giiia ARRAY3(1) = ARRAY3(1) ** 2 

aii3a CONTINUE 

g153a RETURN 

ai550 FORMAT(8F ) 

g1560 FORMATCIX, “INSERT BATA FOR ARRAY! ") 

gi570 FORMATCIX, "INSERT BATA FOR ARRAY2") 

91580 END 
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EXIT 


